home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 1
/
Precision Software Applications Silver Collection Volume One (PSM) (1993).iso
/
tutor
/
modula12.exe
/
DYNREC.MOD
< prev
next >
Wrap
Text File
|
1988-10-26
|
2KB
|
77 lines
(* Chapter 12 - Program 2 *)
MODULE DynRec;
FROM InOut IMPORT WriteString, Write, WriteLn;
FROM Storage IMPORT ALLOCATE, DEALLOCATE;
FROM SYSTEM IMPORT TSIZE;
CONST NumberOfFriends = 50;
TYPE FullName = RECORD
FirstName : ARRAY[0..12] OF CHAR;
Initial : CHAR;
LastName : ARRAY[0..15] OF CHAR;
END;
Date = RECORD
Day : CARDINAL;
Month : CARDINAL;
Year : CARDINAL;
END;
PersonID = POINTER TO Person;
Person = RECORD
Name : FullName;
City : ARRAY[0..15] OF CHAR;
State : ARRAY[0..3] OF CHAR;
BirthDay : Date;
END;
VAR Friend : ARRAY[1..NumberOfFriends] OF PersonID;
Self, Mother, Father : PersonID;
Temp : Person;
Index : CARDINAL;
BEGIN (* Main program *)
ALLOCATE(Self,TSIZE(Person)); (* Create a dynamically
allocated variable *)
Self^.Name.FirstName := "Charley ";
Self^.Name.Initial := 'Z';
Self^.Name.LastName := " Brown";
WITH Self^ DO
City := "Anywhere";
State := "CA";
BirthDay.Day := 17;
WITH BirthDay DO
Month := 7;
Year := 1938;
END;
END; (* All data for Self is now defined *)
ALLOCATE(Mother,TSIZE(Person));
Mother := Self;
ALLOCATE(Father,TSIZE(Person));
Father^ := Mother^;
FOR Index := 1 TO NumberOfFriends DO
ALLOCATE(Friend[Index],TSIZE(Person));
Friend[Index]^ := Mother^;
END;
Temp := Friend[27]^;
WriteString(Temp.Name.FirstName);
Write(Self^.Name.Initial);
WriteString(Mother^.Name.LastName);
WriteLn;
DEALLOCATE(Self,TSIZE(Person));
(* DEALLOCATE(Mother,TSIZE(Person)); Since Mother is lost, it cannot
be disposed of *)
DEALLOCATE(Father,TSIZE(Person));
FOR Index := 1 TO NumberOfFriends DO
DEALLOCATE(Friend[Index],TSIZE(Person));
END;
END DynRec.